home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / apuzzle / startfrm.frm < prev    next >
Text File  |  1999-09-27  |  3KB  |  111 lines
  1. VERSION 5.00
  2. Begin VB.Form StartFrm 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H80000007&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   4680
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   6000
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    Moveable        =   0   'False
  13.    Picture         =   "StartFrm.frx":0000
  14.    ScaleHeight     =   312
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   400
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.PictureBox Picture1 
  20.       BackColor       =   &H80000007&
  21.       BorderStyle     =   0  'None
  22.       BeginProperty Font 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   13.5
  25.          Charset         =   0
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       ForeColor       =   &H000000FF&
  32.       Height          =   330
  33.       Left            =   45
  34.       ScaleHeight     =   330
  35.       ScaleWidth      =   6000
  36.       TabIndex        =   2
  37.       Top             =   3825
  38.       Width           =   6000
  39.    End
  40.    Begin VB.CommandButton Command1 
  41.       BackColor       =   &H00FFC0C0&
  42.       Caption         =   "Start"
  43.       BeginProperty Font 
  44.          Name            =   "Nadianne"
  45.          Size            =   12
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       Height          =   780
  53.       Left            =   225
  54.       Style           =   1  'Graphical
  55.       TabIndex        =   1
  56.       Top             =   225
  57.       Width           =   780
  58.    End
  59.    Begin VB.Label Label2 
  60.       Alignment       =   2  'Center
  61.       BackColor       =   &H80000007&
  62.       Caption         =   "By Swertvaegher Stephan"
  63.       BeginProperty Font 
  64.          Name            =   "MS Sans Serif"
  65.          Size            =   12
  66.          Charset         =   0
  67.          Weight          =   700
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       ForeColor       =   &H000000FF&
  73.       Height          =   375
  74.       Left            =   630
  75.       TabIndex        =   0
  76.       Top             =   4185
  77.       Width           =   4605
  78.    End
  79. End
  80. Attribute VB_Name = "StartFrm"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Option Explicit
  86.  
  87. Private Sub Command1_Click()
  88. StartBit = 1
  89. StartFrm.Enabled = False
  90. StartFrm.Hide
  91. PForm2.Show
  92. End Sub
  93.  
  94. Private Sub Form_Activate()
  95. For xx = 1 To 19
  96. Line ((xx * 20) - 1, 0)-((xx * 20) - 1, 249), &H888888
  97. Line (xx * 20, 0)-(xx * 20, 249), &HCCCCCC
  98. Next xx
  99. For xx = 1 To 9
  100. Line (0, (xx * 25) - 1)-(399, (xx * 25) - 1), &H888888
  101. Line (0, (xx * 25))-(399, (xx * 25)), &HCCCCCC
  102. Next xx
  103. Line (0, 0)-(399, 0), &H888888
  104. Line (0, 0)-(0, 249), &H888888
  105. Line (399, 1)-(399, 249), &HCCCCCC
  106. Line (1, 249)-(399, 249), &HCCCCCC
  107. Picture1.Print "                Square Puzzle V1.0"
  108. Picture1.SetFocus
  109. End Sub
  110.  
  111.